Jak upravit DBGrid aby obsahoval event OnCellRightClick.

Otázka od: David Michal

4. 9. 2002 9:46

Zdravim,
Poradite prosim nekdo se %subj. ?
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002

Odpovedá: Pavel Mattivi

4. 9. 2002 8:46

pouzil bych udalost
procedure TMain.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
s podminkou Button=mbRight, ale to zalezi na konkretnim pouziti..

Pavel Mattivi
Dezadata spol. s r.o.
Mostní 102
757 01, Valasské Mezirící
tel.: 0651/618 939, tel./fax: 0651/618 933
mobil: 0608 743 824
pmattivi@dezadata.cz



> Zdravim,
> Poradite prosim nekdo se %subj. ?
> Diky,
> David

Odpovedá: David Michal

4. 9. 2002 13:03

Zdravim,
Toto sice funguje, jenze tento event se vyvola az po zobrazeni PopupMenu. S
DBGridem mam jeste jiny problem, pokud kliknu pravym tlacitkem na nejaky
zaznam, neni tento zaznam selected ackoliv se tak tvari (je na nem kurzor).
Nejlepe je to poznat pokud si zapnu moznost Multiselect. A dale samozrejme
neoznacuje zaznamy na ktere najedu pomoci MouseWheel.
Jak k sakru donutit tuto komponentu aby se prave tlacitko chovalo alespon
stejne jako leve.
Diky,
David


pouzil bych udalost
procedure TMain.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
s podminkou Button=mbRight, ale to zalezi na konkretnim pouziti..

Pavel Mattivi
Dezadata spol. s r.o.

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002

Odpovedá: David Michal

4. 9. 2002 20:48

Tak si sam odpovim.  
Pokud by nekomu z vas vadilo hloupe chovani praveho tlacitka mysi na
DBGridu, kde je zapnuty multiselect pak staci do udalosti OnDrawColumnCell
dopsat:

 if gdFocused in State Then
  if not DBGRid1.SelectedRows.CurrentRowSelected Then
   begin
    DBGrid1.SelectedRows.Clear;
    DBGGrid1.SelectedRows.CurrentRowSelected := True;
   end;

David


Zdravim,
Toto sice funguje, jenze tento event se vyvola az po zobrazeni PopupMenu. S
DBGridem mam jeste jiny problem, pokud kliknu pravym tlacitkem na nejaky
zaznam, neni tento zaznam selected ackoliv se tak tvari (je na nem kurzor).
Nejlepe je to poznat pokud si zapnu moznost Multiselect. A dale samozrejme
neoznacuje zaznamy na ktere najedu pomoci MouseWheel.
Jak k sakru donutit tuto komponentu aby se prave tlacitko chovalo alespon
stejne jako leve.
Diky,
David


pouzil bych udalost
procedure TMain.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
s podminkou Button=mbRight, ale to zalezi na konkretnim pouziti..

Pavel Mattivi
Dezadata spol. s r.o.

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002